From: Jay Belanger Date: Wed, 20 Jun 2007 04:17:27 +0000 (+0000) Subject: (calc-finish-stack-edit): Let math-expr-opers equal the function X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~421^2~18322 X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=a9b951cd113a2d59a888cf8f64f8408e35282d38;p=emacs.git (calc-finish-stack-edit): Let math-expr-opers equal the function math-standard-ops rather than the variable math-standard-opers. --- diff --git a/lisp/calc/calc-yank.el b/lisp/calc/calc-yank.el index abd78e5f926..a872f69d83f 100644 --- a/lisp/calc/calc-yank.el +++ b/lisp/calc/calc-yank.el @@ -559,7 +559,7 @@ To cancel the edit, simply kill the *Calc Edit* buffer." (aset str pos ?\,))) (switch-to-buffer calc-original-buffer) (let ((vals (let ((calc-language nil) - (math-expr-opers math-standard-opers)) + (math-expr-opers (math-standard-ops))) (and (string-match "[^\n\t ]" str) (math-read-exprs str))))) (when (eq (car-safe vals) 'error)